home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Everything / DModelessBarsData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  7.5 KB  |  427 lines  |  [TEXT/CWIE]
  1. { DModelessBarsData.p -- data container class for Everything}
  2.  
  3. Unit DModelessBarsData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.  
  11.     AMSignaler;
  12.  
  13. const
  14.     idBars3        = longint ('Bar4');
  15.     idStandard8        = longint ('Sta8');
  16.     idGraphic6        = longint ('Gra6');
  17.     idSlider3        = longint ('Sli3');
  18.     idTickMarks3        = longint ('Tic3');
  19.     idNonDirectional3        = longint ('Non3');
  20.     idLittleArrows3        = longint ('Lit3');
  21.     idSpinner3        = longint ('Spi3');
  22.     idVolumeControl3        = longint ('Vol3');
  23.     idJimSSlider3        = longint ('Jim3');
  24.     idStandard9        = longint ('Sta9');
  25.     idIndeterminate3        = longint ('Ind3');
  26.     idChasingArrows3        = longint ('Cha3');
  27.     idRectangle3        = longint ('Rec3');
  28.     idRoundRect3        = longint ('Rou4');
  29.     idBarberPole3        = longint ('Bar5');
  30.     idRoundBarber3        = longint ('Rou5');
  31.  
  32. type
  33.     {----------}
  34.     DModelessBarsData    = object (AMSignaler)
  35.  
  36.     {data members}
  37.         mBars3:        UInt16;
  38.         mStandard8:        SInt16;
  39.         mGraphic6:        SInt16;
  40.         mSlider3:        SInt16;
  41.         mTickMarks3:        SInt16;
  42.         mNonDirectional3:        SInt16;
  43.         mLittleArrows3:        SInt16;
  44.         mSpinner3:        SInt16;
  45.         mVolumeControl3:        SInt16;
  46.         mJimSSlider3:        SInt16;
  47.         mStandard9:        SInt16;
  48.         mIndeterminate3:        SInt16;
  49.         mChasingArrows3:        SInt16;
  50.         mRectangle3:        SInt16;
  51.         mRoundRect3:        SInt16;
  52.         mBarberPole3:        SInt16;
  53.         mRoundBarber3:        SInt16;
  54.  
  55.     {methods}
  56.         Procedure Initialize; Override;
  57.  
  58.         Function  GetBars3: UInt16;
  59.         Procedure SetBars3    (inValue:        UInt16);
  60.         Function  GetStandard8: SInt16;
  61.         Procedure SetStandard8    (inValue:        SInt16);
  62.         Function  GetGraphic6: SInt16;
  63.         Procedure SetGraphic6    (inValue:        SInt16);
  64.         Function  GetSlider3: SInt16;
  65.         Procedure SetSlider3    (inValue:        SInt16);
  66.         Function  GetTickMarks3: SInt16;
  67.         Procedure SetTickMarks3    (inValue:        SInt16);
  68.         Function  GetNonDirectional3: SInt16;
  69.         Procedure SetNonDirectional3    (inValue:        SInt16);
  70.         Function  GetLittleArrows3: SInt16;
  71.         Procedure SetLittleArrows3    (inValue:        SInt16);
  72.         Function  GetSpinner3: SInt16;
  73.         Procedure SetSpinner3    (inValue:        SInt16);
  74.         Function  GetVolumeControl3: SInt16;
  75.         Procedure SetVolumeControl3    (inValue:        SInt16);
  76.         Function  GetJimSSlider3: SInt16;
  77.         Procedure SetJimSSlider3    (inValue:        SInt16);
  78.         Function  GetStandard9: SInt16;
  79.         Procedure SetStandard9    (inValue:        SInt16);
  80.         Function  GetIndeterminate3: SInt16;
  81.         Procedure SetIndeterminate3    (inValue:        SInt16);
  82.         Function  GetChasingArrows3: SInt16;
  83.         Procedure SetChasingArrows3    (inValue:        SInt16);
  84.         Function  GetRectangle3: SInt16;
  85.         Procedure SetRectangle3    (inValue:        SInt16);
  86.         Function  GetRoundRect3: SInt16;
  87.         Procedure SetRoundRect3    (inValue:        SInt16);
  88.         Function  GetBarberPole3: SInt16;
  89.         Procedure SetBarberPole3    (inValue:        SInt16);
  90.         Function  GetRoundBarber3: SInt16;
  91.         Procedure SetRoundBarber3    (inValue:        SInt16);
  92.     end;
  93.  
  94. {----------}
  95. Function NewDModelessBarsData: DModelessBarsData;
  96.  
  97. {----------}
  98. Implementation
  99.  
  100. {----------}
  101. Function NewDModelessBarsData: DModelessBarsData;
  102. var
  103.     data:        DModelessBarsData;
  104. begin
  105.     data := nil;
  106.     New (data);
  107.     if data <> nil then begin
  108.         data.Initialize;
  109.     end;
  110.     NewDModelessBarsData := data;
  111. end;
  112.  
  113. {----------}
  114. Procedure DModelessBarsData.Initialize;
  115. begin
  116.     inherited Initialize;
  117.  
  118.     mBars3 := 0;
  119.     mStandard8 := 5;
  120.     mGraphic6 := 5;
  121.     mSlider3 := 5;
  122.     mTickMarks3 := 5;
  123.     mNonDirectional3 := 5;
  124.     mLittleArrows3 := 5;
  125.     mSpinner3 := 5;
  126.     mVolumeControl3 := 5;
  127.     mJimSSlider3 := 5;
  128.     mStandard9 := 5;
  129.     mIndeterminate3 := 5;
  130.     mChasingArrows3 := 5;
  131.     mRectangle3 := 5;
  132.     mRoundRect3 := 5;
  133.     mBarberPole3 := 5;
  134.     mRoundBarber3 := 5;
  135. end;
  136.  
  137. {----------}
  138. Function DModelessBarsData.GetBars3: UInt16;
  139. begin
  140.     GetBars3 := mBars3;
  141.  
  142.  
  143. end;
  144.  
  145. Procedure DModelessBarsData.SetBars3 (
  146.     inValue:        UInt16);
  147. begin
  148.     mBars3 := inValue;
  149.  
  150.  
  151.     SignalDataChanged (idBars3);
  152. end;
  153.  
  154. {----------}
  155. Function DModelessBarsData.GetStandard8: SInt16;
  156. begin
  157.     GetStandard8 := mStandard8;
  158.  
  159.  
  160. end;
  161.  
  162. Procedure DModelessBarsData.SetStandard8 (
  163.     inValue:        SInt16);
  164. begin
  165.     mStandard8 := inValue;
  166.  
  167.  
  168.     SignalDataChanged (idStandard8);
  169. end;
  170.  
  171. {----------}
  172. Function DModelessBarsData.GetGraphic6: SInt16;
  173. begin
  174.     GetGraphic6 := mGraphic6;
  175.  
  176.  
  177. end;
  178.  
  179. Procedure DModelessBarsData.SetGraphic6 (
  180.     inValue:        SInt16);
  181. begin
  182.     mGraphic6 := inValue;
  183.  
  184.  
  185.     SignalDataChanged (idGraphic6);
  186. end;
  187.  
  188. {----------}
  189. Function DModelessBarsData.GetSlider3: SInt16;
  190. begin
  191.     GetSlider3 := mSlider3;
  192.  
  193.  
  194. end;
  195.  
  196. Procedure DModelessBarsData.SetSlider3 (
  197.     inValue:        SInt16);
  198. begin
  199.     mSlider3 := inValue;
  200.  
  201.  
  202.     SignalDataChanged (idSlider3);
  203. end;
  204.  
  205. {----------}
  206. Function DModelessBarsData.GetTickMarks3: SInt16;
  207. begin
  208.     GetTickMarks3 := mTickMarks3;
  209.  
  210.  
  211. end;
  212.  
  213. Procedure DModelessBarsData.SetTickMarks3 (
  214.     inValue:        SInt16);
  215. begin
  216.     mTickMarks3 := inValue;
  217.  
  218.  
  219.     SignalDataChanged (idTickMarks3);
  220. end;
  221.  
  222. {----------}
  223. Function DModelessBarsData.GetNonDirectional3: SInt16;
  224. begin
  225.     GetNonDirectional3 := mNonDirectional3;
  226.  
  227.  
  228. end;
  229.  
  230. Procedure DModelessBarsData.SetNonDirectional3 (
  231.     inValue:        SInt16);
  232. begin
  233.     mNonDirectional3 := inValue;
  234.  
  235.  
  236.     SignalDataChanged (idNonDirectional3);
  237. end;
  238.  
  239. {----------}
  240. Function DModelessBarsData.GetLittleArrows3: SInt16;
  241. begin
  242.     GetLittleArrows3 := mLittleArrows3;
  243.  
  244.  
  245. end;
  246.  
  247. Procedure DModelessBarsData.SetLittleArrows3 (
  248.     inValue:        SInt16);
  249. begin
  250.     mLittleArrows3 := inValue;
  251.  
  252.  
  253.     SignalDataChanged (idLittleArrows3);
  254. end;
  255.  
  256. {----------}
  257. Function DModelessBarsData.GetSpinner3: SInt16;
  258. begin
  259.     GetSpinner3 := mSpinner3;
  260.  
  261.  
  262. end;
  263.  
  264. Procedure DModelessBarsData.SetSpinner3 (
  265.     inValue:        SInt16);
  266. begin
  267.     mSpinner3 := inValue;
  268.  
  269.  
  270.     SignalDataChanged (idSpinner3);
  271. end;
  272.  
  273. {----------}
  274. Function DModelessBarsData.GetVolumeControl3: SInt16;
  275. begin
  276.     GetVolumeControl3 := mVolumeControl3;
  277.  
  278.  
  279. end;
  280.  
  281. Procedure DModelessBarsData.SetVolumeControl3 (
  282.     inValue:        SInt16);
  283. begin
  284.     mVolumeControl3 := inValue;
  285.  
  286.  
  287.     SignalDataChanged (idVolumeControl3);
  288. end;
  289.  
  290. {----------}
  291. Function DModelessBarsData.GetJimSSlider3: SInt16;
  292. begin
  293.     GetJimSSlider3 := mJimSSlider3;
  294.  
  295.  
  296. end;
  297.  
  298. Procedure DModelessBarsData.SetJimSSlider3 (
  299.     inValue:        SInt16);
  300. begin
  301.     mJimSSlider3 := inValue;
  302.  
  303.  
  304.     SignalDataChanged (idJimSSlider3);
  305. end;
  306.  
  307. {----------}
  308. Function DModelessBarsData.GetStandard9: SInt16;
  309. begin
  310.     GetStandard9 := mStandard9;
  311.  
  312.  
  313. end;
  314.  
  315. Procedure DModelessBarsData.SetStandard9 (
  316.     inValue:        SInt16);
  317. begin
  318.     mStandard9 := inValue;
  319.  
  320.  
  321.     SignalDataChanged (idStandard9);
  322. end;
  323.  
  324. {----------}
  325. Function DModelessBarsData.GetIndeterminate3: SInt16;
  326. begin
  327.     GetIndeterminate3 := mIndeterminate3;
  328.  
  329.  
  330. end;
  331.  
  332. Procedure DModelessBarsData.SetIndeterminate3 (
  333.     inValue:        SInt16);
  334. begin
  335.     mIndeterminate3 := inValue;
  336.  
  337.  
  338.     SignalDataChanged (idIndeterminate3);
  339. end;
  340.  
  341. {----------}
  342. Function DModelessBarsData.GetChasingArrows3: SInt16;
  343. begin
  344.     GetChasingArrows3 := mChasingArrows3;
  345.  
  346.  
  347. end;
  348.  
  349. Procedure DModelessBarsData.SetChasingArrows3 (
  350.     inValue:        SInt16);
  351. begin
  352.     mChasingArrows3 := inValue;
  353.  
  354.  
  355.     SignalDataChanged (idChasingArrows3);
  356. end;
  357.  
  358. {----------}
  359. Function DModelessBarsData.GetRectangle3: SInt16;
  360. begin
  361.     GetRectangle3 := mRectangle3;
  362.  
  363.  
  364. end;
  365.  
  366. Procedure DModelessBarsData.SetRectangle3 (
  367.     inValue:        SInt16);
  368. begin
  369.     mRectangle3 := inValue;
  370.  
  371.  
  372.     SignalDataChanged (idRectangle3);
  373. end;
  374.  
  375. {----------}
  376. Function DModelessBarsData.GetRoundRect3: SInt16;
  377. begin
  378.     GetRoundRect3 := mRoundRect3;
  379.  
  380.  
  381. end;
  382.  
  383. Procedure DModelessBarsData.SetRoundRect3 (
  384.     inValue:        SInt16);
  385. begin
  386.     mRoundRect3 := inValue;
  387.  
  388.  
  389.     SignalDataChanged (idRoundRect3);
  390. end;
  391.  
  392. {----------}
  393. Function DModelessBarsData.GetBarberPole3: SInt16;
  394. begin
  395.     GetBarberPole3 := mBarberPole3;
  396.  
  397.  
  398. end;
  399.  
  400. Procedure DModelessBarsData.SetBarberPole3 (
  401.     inValue:        SInt16);
  402. begin
  403.     mBarberPole3 := inValue;
  404.  
  405.  
  406.     SignalDataChanged (idBarberPole3);
  407. end;
  408.  
  409. {----------}
  410. Function DModelessBarsData.GetRoundBarber3: SInt16;
  411. begin
  412.     GetRoundBarber3 := mRoundBarber3;
  413.  
  414.  
  415. end;
  416.  
  417. Procedure DModelessBarsData.SetRoundBarber3 (
  418.     inValue:        SInt16);
  419. begin
  420.     mRoundBarber3 := inValue;
  421.  
  422.  
  423.     SignalDataChanged (idRoundBarber3);
  424. end;
  425.  
  426. end.
  427.